Top 10k strings from Universe (2002)(Naffsoft).z80 in <root> / bin / z80 / software / Sinclair Spectrum Collection TOSEC.exe / Sinclair ZX Spectrum - Games / [Z80] /

Back to the directory listing

   8 x(i),y(i);
   1 y(i)=y(i)+
   1 y$="s")-(y$="N"
   1 y$="e")-(y$="W"
   1 x(i)=x(i)+
   1 w$="Spong":
   1 w$="Gulper":
   1 w$="Barrier"
   1 iy=(y$="E"
   1 ix=(y$="S"
   1 i(x(i),y(i))=2
   1 i(x(i),y(i))=1
   1 i(x(i),y(i))=0
   1 i(px,py)=2
   1 i(px,py)=1
   1 END OF PROGRAM
   1 =barrier";
   1 ;ngl;" gulpers";
   1 ;ng;" gulpers";
   1 ;"You walked into a ";w$;"!":
   1 ;"You gave up":
   1 ;"Well done - you have survived!"
   1 ;"Turn no.1";
   1 ;"The Gulpers are moving..."
   1 ;"Press s to load next item"
   1 ;"No Gulpers left - you win!":
   1 ;"Gulper ";i;" melted
   1 ;"Gulper ";i;" has got you!":
   1 ;"Gulper ";i;" cannibalised":
   1 ;"Gulper ";i;" absorbed    ":
   1 ;"GAME or QUIT"
   1 (x(i),y(i))<64
   1 (px-x(i)):
   1 (px,py)<64
   1 "until you tread on one, then it"
   1 "other Gulpers. Spongs do nothing"
   1 "moves. Gulpers will eat you or"
   1 "eats you. Spongs also eat"
   1 "To win, you must survive for 10"
   1 "Reenter (eg.Compass points):";m$:
   1 "INSTRUCTIONS:"
   1 "Gulpers. Type * to give up."
   1 "Enter direction to move:";m$
   1 "ENTER G or Q"
   1  UNIVERSE